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LL NN NN KK KK PPPPPPPP RRRRRRRR 000000 SSSSSSSS HH HH RRRRRRRR 

LL NN NN KK KK PPPPPPPP RRRRRRRR 000000 SSSSSSSS_ HH HH RRRRRRRR 

LL NN NN KK KK PP PP RR RR 00 oo SS HH HH RR RR 

LL NN NN KK KK PP PP RR RR 00 00 SS HH HH RR RR 

LL NNNN NN KK KK PP PP RR RR 00 00 SS HH HH RR RR 

LL NNNN NN KK KK PP PP RR RR 00 00 SS HH HH RR RR 

LL NN NN NN KKKKKK PPPPPPPP RRRRRRRR 00 00 SSSSSS HHHHHHHHHH = RRRRRRRR 

LL NN NN NN KKKKKK PPPPPPPP RRRRRRRR 00 00 SSSSSS HHHHHHHHHH = RRRRRRRR 

LL NN NNNN KK KK PP RR RR 00 00 SS HH HH RR RR 

LL NN NNNN KK KK PP RR RR 00 00 SS HH HH RR RR 

LL NN NN KK KK PP RR RR 00 00 SS HH HH RR RR cece 
LL NN NN KK KK PP RR RR 00 00 SS HH HH RR RR eeee 
LLLLLLLLLL NN NN KK KK PP RR RR 000000 SSSSSSSS HH HH RR RR eeee 
LLLLLLLLLL NN NN KK KK PP RR RR 000000 SSSSSSSS HH HH RR RR cece 
LL III SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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1 
module Lnk_procshrim ! PROCESS SHAREABLE IMAGES ON PASS 1 
” (ident = ‘'v04-000' 
addressing _mode 
(external = 


posers: 
phensaterans = long_relative 


)e 
begin 
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'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
® or i ae WITH THE TERMS OF SUCH biciNee we Mi 


* 
® 
x 
® 
® 
® 
® 
* 
PRO ERWI I * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
, ® 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
+ 
*® 
® 
” 
* 
*® 
® 


!# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS 


Po 
VIEW O OONAUE WN OC ODNOUNEWUN (HOO DNOAUES WN OOONOUS WN 


02 NOT SUPPLIED BY DIGITAL. 
8 i? 
® 
03 PITITITILILLLIL LLL LLL LLL LLL LILI LTT iii Tiiiiliiiiiiiiiiiiiiiitiiitii 
! 
03 
03 'e+ 
os FACILITY: LINKER 
03 ABSTRACT: THIS MODULE CONTAINS THE ROUTINES TO READ SHAREABLE 
03 IMAGES ON PASS 1. 
0039 
0040 
Ope ENVIRONMENT: VMS NATIVE MODE 
Boe7 AUTHOR: T.J. PORTER, CREATION DATE: 15-DEC-77 
045 MODIFIED BY: 
4 peg 
4 04 9 7-Aug-1984 
$8 8 Propagate the DZRO bit from the shareable image ISD to the 


FR 


NOUS WI —OO 


corresponding ISD {i the new image. It was being cleared 
unconditionally. 


V03-007 Jw10192 Jim Teague 2-Aug~1984 
nfortunately, push came to shove, and the global 
sd search optimization has been tossed. 


V03-006 JWT0189 Jim Teague 25-Jul-1984 
Make some changes to accomodate demand-zero image 
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1 
: v03-008 ADE0003 Alan f. Eldridge 
i 
i 
i 
i 
i 
i 
i 
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sengentna, ocee in 


GOOCCoooooooooooooooooooo 
BNI NIN SSSI NNO AAA AAAAAOOvtt 


9 sections in shareable im 
60 

2 
6 V03-005 ADEO00 

¢: Fix null arguments passed 
66 V03-004 ADE0001 


Alan D. Eldr 
Don't erase CLUSL_GSMATCH. 


Alan D. Eldridge 


~$e9-1984 00:30:18 


AX-11 Bliss-32 V4.0- 


- .The minimum image 

file VBN for the symbol table is now 2, instead of 3. 
en Consider the case of a shareable image with 
nothing BUT a demand zero image section... 


10-Jul-1984 


n SIGNAL due to editting errors. 


26-Feb-1984 


1dge 
It is no longer re-used as 


and it is referenced to correctly 
ng in pass one. 


; 1 

: 1 

; 1 

3 oe 

3 § 1 

: 1 

3 4 | 

3 5 : 

tsa 

; oS 8 1 

: 8 M4 ! perform the GSMATC 
. / oe . v03-003 JwT0152 Ji 
3 4 § ! Long names for glo 
: 67% 4 1 v03-002 JwT0111 Jim Teag 
Se | 7 ae Don't pull in shareable 
: v8 S § : isds unless they're based. 
;- 0 8 1 V03-001 JWwT0044 Jim Teague 
: 0 1 Open file performance boost. 
; 80 0080 1 

; #8) 0081 1 !-- 

; & et 1 

Se 0085 1! 

: B4 084 1 ! TABLE OF CONTENTS: 

3; 8 085 1! 

: 686 Hy 1 forward routine 

oe 0087 1 readnextblock; 

; 8 0088 1 

; 8 0089 1! 

oe. 0090 1 ! INCLUDE FILES: 

; FF 091 1! 

; #9 092 1 Library ‘LIBL32'; 

; 9g 0093 1 require ‘PREFIX’; 

; 94 208 1 Library ‘DATBAS'; 

; 95 09 1 require ‘ISGENC'; 

; 0593 (1 

s 97 594 1! 

3 98 595 1 ! MACROS: 

3; WW 238 1! 

: 100 597 1! NONE 

3 131 238 7! 

: 198 5 ! : EQUATED SYMBOLS: 

3; 6104 $01 1! NONE 

; 105 § 1! 

3 196 1 ! EXTERNAL REFERENCES: 

ey 6 : | 

; 108 5 

Ww 1 external routine 

: 110 1 ink$al loblk : novalue, 
: «12121 : 1 ink$allocluster, 

3 ie 1 ink$closefile : novalue, 
s 11 610 1 ink$pointob : novalue, 
3 «16 611 1 inkSaddimage, 


8-Feb-1984 


m Teague 
bal image section descriptors. 


14-Apr-1983 


e 
inages that are in global 


30-Jul-1982 


READS THE NEXT HEADER BLOCK OF IMAGE 


VMS SYSTEM STRUCTURE DEFINITIONS 


! USEFUL GENERAL MACROS 
! INTERNAL DATA BASE DEFINITIONS 
! IMAGE SECTION PARAMETERS 


74 
LINKER. SRC JLNKPROSHR .B52; 2 


LNK_PROCSHRIM 
V04=0 


; 3 12 1 ink$procsobj; 

i 16 e18 | . , 

; 1 614 1 external Literal 

: «(118 615 1 Lin$_badimghdr, 

3 1 218 1 Lin$_basshrbel, 

Ss 617 1 Lin$_con basadr, 

; tei 0618 1 Lin$S_idmismch, 

; 7 § pol? 1 Lin$_imgbased, 

4 620 1 Lin$_no 5 MAE 

> 124 0621 1 Lin$_nonpicimg, 

: Jee 06 § 1 Lin$_relink, 

a $ $e 1 Lins, “readerr; 

: ¥ 624 1 

: 128 $6 5 1 external 

: 129 6 § 1 ink Sol shrclstrs, 

: 130 6 1 Lnk$al_rab : block C, byte], 
: 13) 628 1 ink$gw_ nisects : word, 

;. 7 ¢ 629 1 ink$gw_shriscts word, 

: 3 0630 1 ink$gb_pass : byte, 

: «134 0631 1 ink$gl-curfil : ref block f. byte], 
; 355 +t) 1 ink$gl-curclu : ref ae grtez. 
; «4136 0633 1 ink$gl-defclu : eiges {, byte) 

: 137 0634 1 ink$gl_lastclu : ref block 4? byte), 
; 138 0635 «(1 ink$gl_ctlmsk : block C, byte, 
: 4139 0636 1 ink$gl[objrecs ; 

; 140 0637 1 

: (141 Boa8 1! 

: 146 639 1 ! MODULE OWN STORAGE: 

; (14 0640 1! 

> 144 0641 1 global 

3: «(145 0642 1 Lnk$gl_ qsbufdsc : vector (3), 

> 146 0643 1 ink$gl_imgrecs ; 

: 147 0644 1 

3; (148 0645 1 ow 

; «149 0646 1 curisdseq : vector byte? 
3; 150 0647 1 initial hases 

3s 131 0648 1 hdrblkcnt, 

; 136 0649 i headerblock ; 

3; «15 650 1 

3 «154 651 1 


Sep-1 
1$-s¢ =Sep-1 


SR 


meme me me me me eee 


000"), 


AX=11 Blisg-32 V4.0 7K 
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! PROCESSES OBJECT MODULES (1.E. THE GST) 


Page ay 


BAD 
BA 


IMAGE HEA MESSAG 

aor SHAREABLE IMAGE BELOW BASE= 
CONFLICTING BASE ADDRESSES FOR SHR IMGS 
GSMATCH MISMATCH WITH SHR_IMG STB LIBRARY 
ATTEMPT TO RE“BASE A NON-PIC IMAGE 
NO IMAGE FILE CREATED 
SHAREABLE IMAGE IS NON-PIC 
RELINK DUE TO COPYALWAYS SECTION 
READ ERROR 


UMBER ¥ 4 a0" REABLE. TMAGE ISECTS 


LE POINTER 
CURRENT CLUSTER Peete totes 
DEFAULT_CLUSTER DESCRIPTOR 
POINTER TO LAST CLUSTER DESCRIPTOR 
CONTROL FLAGS 
COUNT OF OBJECT RECORDS 


BUFFER DESCRIPTOR FOR COPIED GLOBAL SECTIONS 
COUNT OF IMAGE RECORDS 
SUFFIX TO SCLUSTER NAME GIVING GBL ISD NAME 


NUMBER REMAINING HEADER BLOCKS 
CURRENT HEADER VBN 


d 8 
LNK_PROCSHRIM 16-Sep-1984 00:30: AX=11 Blisg-32 V4.0-74 
i az008 1o-80P 1 38 99:38:18 LINKER. SRCJLNKPROSHR.B52;2 
3 : $ 6 ¢ ! global routine Lnk$procshrim (modrfa) = 
3 138 06 4 1 ! FUNCTIONAL DESCRIPTION: 
; 159 655 1! THIS ROUTINE IS CALLED TO PROCESS SHAREABLE IMAGES ON PASS 
; 160 be § 1! ONE OF THE LINK. IT READS AND VALIDATES EVERY BLOCK OF THE IMAGE HEADER 
; «(161 657 1! BUILDING THE LIST OF IMAGE SECTION DESCRIPTORS. AFTER COMPLETING THE HEADER 
3 196 Be28 1! AB POINTIN THE SYMBOL TABLE PART OF THE IMAGE FILE AND 
; «616 0659 1! CALLS LNKSPROCSOBJ TO DO THE PASS ONE OBJECT MODULE PROCESSING 
> «6164 bere : 2 OF THE SYMBOL TABLE. 
s 165 661 1! THE SYMBOL TABLE OF A SHAREABLE IMAGE CONTAINS ALL THE UNIVERSAL 
; 196 Bee ! SYMBOLS DEFINED FOR THE IMAGE AND IS IN THE OBJECT MODULE FORMAT. 
; «6168 664 1 ! FORMAL PARAMETERS: 
>; «169 0665 1! MODRFA IS A POINTER TO THE 6 BYTE RFA OF THE SHAREABLE IMAGE IF 
; 170 066 1! IT IS IN A LIBRARY. IF NOT A LIBRARY SHAREABLE IMAGE THE ARGUMENT 
; 10) pee! : } DOES NOT EXIST. 
; 138 0669 1 ! IMPLICIT INPUTS: 
> 174 0670 1! E— ABOVE EXTERNAL DECLARATIONS. 
~are 0671 1! IN ADDITION THE FILE CONTAINING THE IMAGE IS ALREADY OPEN 
: 178 Bere } FOR BLOCK READ OPERATIONS. 
; 178 0674 1! IMPLICIT OUTPUTS: 
: 179 0675 1! SEE ABOVE GLOBAL DECLARATIONS. 
: 180 0676 1! IN ADDITION ALL IMAGE SECTIONS FOUND IN THIS SHAREABLE IMAGE 
s 18) 067 1! ARE APPENDED TO THE LIST AND THE GST HAS BEEN PROCESSED AS AN OBJECT 
; ise Bore : MODULE. THAT IS ALL UNIVERSAL SYMBOLS ARE IN THE LINKER SYMBOL TABLE. 
> «184 0680 1 ! ROUTINE VALUE: 
: 13? ret ! RETURNS VALUE TRUE IF SUCCESSFULLY PROCESSED, ELSE FALSE 
: 187 0685 1 ! SIDE EFFECTS: 
; H+ bee : ! THE ROUTINE DOES NOT RETURN IF A FATAL ERROR IS DETECTED. 
3 6199 0686 1 !-- 
3; «6191 0687 begin 
; 196 0688 builtin 
; 13? 494 ae actualcount ; ! GETS COUNT OF ARGUMENTS 
; oca 
s 195 0691 nxtisdoff, ' OFFSET TO NEXT ISD 
; 196 34 blockoffset, ! OFFSET IN FILE TO FIRST HEADER BLOCK 
3; 197 069 isectident, ' MAJOR AND MINOR ID FROM HEADER 
: 198 0694 firstisdvpg, ! VPG OF FIRST ISECT 
: 199 695 symdbgdatdsc : ref block C, byte], ' POINTER TO SYMBOL TABLE DESCRIPTOR 
: 200 69 gstrecs, ' NUMBER OF RECORDS IN SYMBOL TABLE 
; 201 69 ownc lu : ref block (C, byte], ' POINTER TO OWNING CLUSTER DESCRIPTOR 
3 4 698 ownfdb : ref block {, byte], ' AND IT'S FILE DESCRIPTOR BLOCK 
: 20 99 cludesc : ref block (, bytel, ' POINTER TO CREATED CLUSTER DESCRIPTOR 
3 2046 00 curhdrisd : ref block (, byteJ, ' POINTER TO CURRENT ISD IN HEADER 
3; 205 44 curisd : ref block {, byte], ' POINTER TO CURRENT ISD BEING BUILT 
3 06 7 ; newhdrisd : ref block (, byte], ' POINTER TO HEADER PART OF CURRENT ISD BEING BUILT 
; 20 7 firstisd : ref block byte ‘ ' POINTER TO FIRST ISECT IN CLUSTER 
: $8 704 gstvon : vector (2, (ong ° ! RFA OF GST 
3 705 afva, ' RELATIVE VA OF FIXUP SECTION 
; 10 7 saverecount, ' SAVED RECORD COUNT WHILE IN OBJPS1 
3 + 4 i maxisdvbn ; ' LAST IMAGE VBN + 1 


8 
LNK_PROCSHRIM 16-3 -1984 00:30:18 AX-11 Bliss-32 V4.0-74 LN 
v04- 1 mae 1 90:38: 48 LINKER_S§R¢ LiePNOSRG 2:2 song 3 v0 


map 
modrfa : ref block C, byte] ; ' POINTER TO BLOCK 


bind ; 
POINTER TO BLOCK BUFFER 


IF CALLED WITH NO ARGUMENTS 

HEADER AT START OF FILE 

OTHERWISE GET OFFSET, 

COUNT THIS SHAREABLE IMAGE CLUSTER 


header = Lnk$al_rab Crab$l_ubf] : ref block C, byte] ; 
if actualcount () eql 0 
"blockof fset 0 
**olockot fset = .modrfa (rfa$l_vbn] - 1 ; 
ink$gl_shrclstrs = .lnk$gl_shrclstrs + 1 ; 


cludesc e @3 ' NO CREATED CLUSTER YET 
hdrblkcnt at E. ! MUST BE AT LEAST ONE BLOCK 
nxtisdoff ze]; ' NE ISD IS ON NEXT BLOCK 
maxisdvbn = 0; ' RESET LAST BLOCK OF IMAGE 
headerblock = .blockoffset ; ! AND SET FOR FIRST BLOCK READ 
chSfill (%c'O", 3, curisdseq (1]) ; ! INITIALIZE THE ISD NAME SUFFIX 
while .nxtisdoff eql -1 ' WHILE THERE ARE MORE 
do begin i HEADER BLOCKS 
uy not readnextblock () ! GET THE NEXT ONE 
en 
signal_stop (Lin$_badimghdr, 1 ' AND IF UNSUCCESSFUL, FATAL IMAGE 
ink$gl_curfil Efdb$q_filename) 
it sheaderblock eql (.blockoffset + 1) ! IF THE FIRST 
en 
begin ' HAVE SOME VALIDATION TO DO 
; VALIDATE IMAGE HEADER 
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if .header Cihd$b_imgtype)] neq ihd$k_shr ' CHECK IT IS A SHAREABLE_ IMAGE 
or header CLihd$Sw major id) beg ihd$k_majorid ! MAJOR HEADER ID MUST MATCH 
or (. (header CihdSw_minorid])<0, 8, 0> eql (ihdSk_minorid and %x'FF*) 
an 
ee «(header Cihd$Sw_minorid])<8, 8, 0> gtru (ihdSk_minorid and %x'FFO0')/256 
75 or .header Cihd$Sw_size] gtru maxu ((.header Cihd$w petchott2 ! THE HEADER FIXED PART 
255 75 + ihp$k_length ' MUST BE LESS THAN A BLOCK AND MUST 
§ 3 ihd$k_maxlength 
8 75 or (hdrblkcnt = .header Cihd$Sb_hdrblkcnt] - 1) lss_0 ! courain PATCH AREA. 0 TO 
9 75 or (symdbgdatdsc = .header + . header Cihd$w syadbgo!]) ! 127 MORE BLOCKS. GET THE 
60 75 gequ (.header + .header Cihd$w_size)) ! GST DESCRIPTOR WHICH MUST BE_CONTAINED 
61 75 or (gstrecs = .symdbgdatdsc Cihs$w_gstrecs]) |ssu 3 ! IN HEADER. MUST BE AT LEAST 3 RECORDS 
66 ig or (gstvbn (0) = .symdbgdatdsc Cihs$l_gstvbnJ) ! AND MUST BE BEYOND THE HEADER BLOCKS 
oi 3 * lequ (.hdrblkcnt + 17 
en 
65 761 signal_stop (Lin$_badimghdr, 1 ! ANY ABOVE NOT TRUE, FATAL IMAGE 
66 70 ink$§l_curfil Cfdb$q_tilename) i “HEADER ERROR 
“44 Se 44 not (ink$gl_curclu CcluSv_pic] = .header Cihd$v_picimg]) ! EXTRACT THE PIC BIT AND IF NON-PIC 
en 
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1e=86b-1884 19:20:34 
begin 

ink$gl_ctlmsk Clnk$v_picimg] = false ; 


if -ink$gl_curclu pefusy.ysrbesgdd 
rs. not .ink$gl_-curclu Cclu$v_intclu 


begin 
signal (Lin$S_imgbased, 1 
ink$glicurfil Cfdb$q_ filename] 


ink$gl_curclu fclugv usrbase ] = false ; 
UnkSot cure lu clu$l_usrbase] = 0 ; 


end 


else 
if .lnk$gl_curclu Cclu$Sv_usrbased) 


en 
Lnk$gl_ctlmsk Clnk$v_picimg] = false ; 
if elnk$gl_ctlmsk Clnk$v_shrJ 
and not .lnk$gl_ctlmsk Clnk$v_ubased) 
and not .ink$gl_curclu Cclu$v_pic 


en 
signal (Lin$_nonpicimg, 1 
ink$glcurfil tfdb$q_filename] 


if CUnkSgl cure ly ColuSv_matchctl] = 
ihdSv_matchctl]) eql isd$k_matnev 


header 
en 
ink$gl_curclu Cclu$v_copy] = true ; 


isectident = .header Cihd$l_ident) ; 
iafva = 0; 


if (.header + .header Cihd$w_activoff)) 
i. gtru header Cihd$l_iafval 
en 


begin 
iafva = .header Cihd$l_iafval] ; 
if .iafva eql 0 


en 
4 ink$gl_curclu Cclu$v_prefixup] = true ; 
n 


else 
ink$gl_curclu CcluSv_prefixup] = true ; 


Lnkdat imgrecs = .lnk$gl_imgrecs + .hdrblkcnt + 1 ; 
curh risd = .header + .header Lihd$w_size) ; 


AX-11 Bliss-32 V4.0-74 
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! THIS IMAGE IS ALSO NON-PIC 
IF NON-PIC IMAGE BASED BY USER 


AND NOT AN INTERNALLY CREATED CLUSTER 


THEN THAT'S AN ERROR, BECAUSE WE CAN'T 
RELOCATE IT 


BUT IF CLUSTER BASED BY OPTION 


IF CREATING A_SHAREABLE IMAGE 
AND IMAGE NOT BASED BY USER 
AND THIS IMAGE JUST MADE IT NON-PIC 
THEN TELL USER ABOUT IT (INFO) 
EXTRACT THE GLOBAL SECTION MATCH CONTROL 
MAKING PRIVATE COPY IF MATCH NEVER 
NOW THE IDENT TO WHICH IT APPLIES 
IF IMAGE HAS FIXUP VA OFFSET 
THEN PICK IT UP 
FIXVA THERE, BUT 0, SO ASSUME NOT THERE 


NO FIXUP VA, FLAG OLD IMAGE 


! COUNT HEADER BLOCKS AS RECORDS 
! POINT TO FIRST ISD IN HEADER 


i CHECK GSMATCH OF IMAGE AGAINST GSMATCH FOUND IN SHAREABLE IMAGE 


LIBRARY IF THIS IMAGE FOUND IN A LIBRARY 


if . ink$gl_curclu fc lust _gsmatch ne 
and .ink$gl_curclu CcluSl_gsmatch 


e 
begin 


q 0 
neq .isectident 


IF FOUND IN SHAREABLE IMAGE LIB 
AND IMAGE/LIBRARY MISMATCH 


8 
vos2000 1E$0or198E Q0:20:H8 YOGA APLLEHC BERNA BG74R,. 2) 


: 7 3 bind Libident = Lnk$gl_curclu Cclu$l_gsmatch] : block (, byte], 

: 3 : imgident = isec facut ~~ : block E: byte 3 

: 330 6 signal (LinS_idmismch, ! WARN USER ABOUT IDENT PROBLEM 

; 1 oz ing ident bone b_majorid],.imgident Egatse pinerté 

; ¢ 8 eink$gl_curfil Cfdb$q_filename], .libident Comt$b_majorid],.libident Cgmt$b_minorid] 
: ‘ o8 4 gtanset.curttt fdb$q_libnamdsc 

: 335 831 4 end ; ‘ 

; $ BB § 4 { end ! ALL DONE WITH FIRST BLOCK 

3 se 

: 3 8 : curhdrisd = .header ; ! OTHER BLOCKS ARE ALL ISD 

: 340 0836 

; ry peRe PROCESS IMAGE SECTION DESCRIPTORS 

: 48 +84 i while (nxtisdoff = .(curhdrisd Cisd$w_size])<0, 16, 1>) gtr 0 ! WHILE MORE ISD'S ON THIS BLOCK 

3 © begin 

; is oes ? if .curhdrisd Cisd$b_type] neq isd$k_usrstack ! BEGIN LOOP THAT PROCESSES EACH 

3 en 

: 47 bees 5 begin ! IGNORING STACK SECTION 

3 9 Sere : y .curhdrisd Cisd$v_copyalway] ! JF THIS IS COPY ALWAYS SECTION 

$ en 

; 350 0846 5 signal_stop (Lin$_relink, 2 ! THEN ISSUE MESSAGE AND GIVE UP NOW 

: 38) Oace 8 {mussel curtit fgbsa.t{tenane} 

; n cur ename 

; 38 0849 5 was ~ 

3; 354 0850 5 

3 So? 0851 5 if .curhdrisd Cisd$v_gbl) ! IF GLOBAL ISECT 

; 356 ett 5 then 

: 57 085 6 begin ! THEN CHECK FROM SAME SHAREABLE IMAGE 
; 358 0854 6 local found, 

3 oP 0855 6 shrdesc : block Cdsc$c_s_bln, byte] ; 

; 360 0856 6 bin 

: 61 tt 4 ? gblnam = curhdrisd Cisd$t_gblnam] : vector C, byte] ; 

; : 0859 6 shrdesc Fdsc$a. ointer] = gblnam at 3 ! COMPLETE SECTION NAME DESCRIPTOR 

; 0860 6 shrdesc Cdsc$w_length] = .gblnam (0) - suffix_size ; ! FIND LENGTH OF GLOBAL SECTION 
; 0861 6 ! SECTION NAME IN ISECT DESCRIPTOR 

3 p86 6 if .cludesc eql 0 ! IF NO CREATED CLUSTERS YET 

: Bae 6 or not ch$eql (.shrdesc pdscéu_tength}. gblnam C1] ! OR THIS IS FOR A DIFFERENT CLUSTER 
; 864 6 -shrdesc Cdsc$w_length], cludesc CcluSt_name] 

; 0865 6 j 

; OBer anon nin 

; 0868 7 ink Saddimage (shrdesc,. 0, cludesc, found) ; ! ADD IMAGE TO THE CLUSTER LIST 

3 36? 7 if .cludesc neq 0 and not . found 

3 BB: then 

: O82 lites Setude.grofteued 4 skabbel surety Gelude oretiow’ 

3 cludesc Cclu$v_prefixup] = .l\n _curclu CcluSv_prefix . 

; 378 - : . COPY PREFIXUP FLAG FROM PARENT CLUSTE 
3 R cludesc Cclu$l_ownclu) = .lnk$gl_curclu ; ! SET OWNING CLUSTER DESCRIPTOR 

: 6 4 not .lnk$gl_curclu Celu$v_pic] ! IF THIS IMAGE IS NON-PIC 

3 en 

5 578 begin 

3 79 9 cludesc Cclu$v_based] = true ; ! FLAG CLUSTER AS BASED 
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405 0901 
090 
407 090 
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409 0905 
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0909 
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PUww A Oi Ser~bnd-uthean 
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SOoooooooooooooooooooooooSo 


DOODODOOOOOOOOOOOOOODOOOOOOOO 


w 
OuFfun— 


ba te 


if sept ght MiaOibe | EMER SReSiMRPROSHR.682;2 Oe 
cludesc Cclu$l_base] = (if .curhdrisd Cisd$v -base¢) 
then ogurpertee ta fet 


base] + 
clu$l—cluoffJ 


ink$gl_curclu Celu$l _cluot#) = .lnk$gl_cur clu$l_cluoff] + 
. “curharisd are W “pagent i® {13 


else .lnk$gl_curclu 
e lnk$gl-curclu 


end ; 
end 
begin 
if (. LnkSot curclu Cclu$v_based] ! IF THIS CLUSTER IS BASED 
an 
elnk$gl_curclu Cclu$v_pic] 
or .lnk$gl_curclu Cclu$v_usrbased] 
then 


begin 
ounclu = .cludesc Cclu$l_ownclu] ; ! GET OWNING CLUSIER POINTER 


2 -ownclu neq 0 
en 
ink$gl_curclu Celu$l_cluoff] = -inkSgl. curclu Cclu$l_cluoff) + 


-curhdrisdlisd$w_pagcntJ*512 ; 
if tarts neq 0 ' IF THERE IS AN OWNING CLUSTER 
an 
-ownclu Cclu$v_based] ! WHICH IS ALSO BASED 
an 


-cludesc Cclu$l_base] neq .curhdrisd Cisdsy,, vp your 
ANTS THIS CLUSTER AT A 
SU PLACE 


ownfdb = .ownclu CcluSl_fstfdb] ; ! GET FIRST FILE DESCRIPTOR BLOCK 
signal (Lin$_confbasadr, 5 


escurherisg isd$v “v4 9, ink$at_¢ grfit Cfdb$q_ filename) 
»-cludesc glusl _base ownfdb fabs Hloneped 
Lins _noimgfil 
inkSgl ct Lask Clink$v_image) = false ; ! DON'T MAKE A NON-RUNNABLE IMAGE 
en 
else 


begin 
it not .lnk$gl_curclu Cclu$v_usrbased] 
en 


begin 
ifenot -cludesc Cclu$v_based) ! IF CLUSTER NOT ALREADY BASED 

en 
Lnk$gw_shriscts = .lnk$gw_shriscts - .cludesc Cclu$l_nisects) ; 


cludesc (clu$v_based) = true ; ' FLAG AS. paste 
eh ydese clu$l"base) = .curhdrisd Cisd$v _vpg 5 
end ; 
end ; 
end ; 
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5©096909 09 69 “10909 090969690 HO OO OOO O09 09 09 09 SI NINIP AAA A AAA AAAAAPMNMNMIVIVIEN NINN NNONN 
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begin 
if .lnk$gl_curclu Cclu$v_based] or . 


en 
ink$gl_curclu Celu$l_cluoff] = 


end ; 
end ; 


if not .curhdrisdlisd$v_gbl) 
then 


isd$c_si 
_nxtisd 
_bufadr 
bu 
_cluds 
newhdrisd urisd isi 


ch$copy (.curhdrisd 
, curhdrisd Cisd$w size], 


0 
isd$k _maxlenglbl> curisd Cisl$t whdrisd) 


if -UnkSgtcurctu Cclu$l_fstisd] eql 0 
then 


begin 
if .lnk$gl_curclu cclu$v_usrbased] 
then 


begin 
if .ink$gl_curclu Cclu$v_based] 
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ink$gl_curclu Cclu$v_usrbased] 


pea curclu Cclu$l =f lyotf] + 
-curhdrisd Cisd$w_pagcnt) * 51 


aul os ate A ae 
CURRENT IS L 
NO BUFFER FOR IT YET 


SET POINTER TO CLUSTER DESCRIPTOR 
POINT TO PART DESTINED FOR HEADER 


! COPY THE ISD FROM T 
HEADER TO DESCRIPTOR. 0 FILLED 


IF THIS IS THE FIRST 


IF BASED BY USER 


IF CLUSTER IS ALSO BASED 


an 
otal curclu Cclu$l_base] neq .lnk$gl_curclu Cclu$l_usrbase] 


ee gin 
signal ( Lin$_confbasadr, 


»eink$gl_curclu 
»eLnk$gl—curclu 
Lins _noimgfil 


5 
» ink$gl_curclu ¢lu$b naming) 
clu$l- “pasele ink$gl. curfil Cfdb$q_filename) 
clu$l[usrbase], $ 


LnkSgl ctlnsk Clnk$v_image] = 


ink$gl_curclu Cclu$l_base] 
ink$gl-curclu Eclu$l “ysrbase] 
ink Sgt. curclu Cclu$v_based 


else 
begin 
if .lnk$gl_curclu Cclu$v_based] 
and no 
-lnk$gl_curclu Cclu$v_pic] 
en 
begin 


eScriptor (‘Options file’) 
false ; 
ink$gl_curclu Cclu$l_usrbase) ; 


true ; 


UE TO ANOTHER IMAGE 
AND IT TURNED OUT TO 
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po foloto eye] 


oD Hn 


sss 
oO 
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end ; 
firstisd = .newhdrisd ; 


8 
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iF, inkSelcurctu Celu$l_base] neq .newhdrisd Cisd$v_vpg]*9 


th 
begin 
ownclu = - nk $l. urcly he Lust owne Lu ; 
ownfdb = “pyng u (cluSl_fstfdbJ ; 
gnal ( Lin$_confbasadr 


° i 4 cureiu clu$b ngalng? 

»-newhdrisd Cisd$v veel ° {nkSgl curtit ffdb$q_ filename] 

+-Lnk$gl_curcly cTuSl_baseJ, ownfdb Cfdb$q_filéname] 
Lin$_noimgfil 


LnkSgl_ctimsk Clnk$v_image] = false ; 
end 


else 
if not .lnk$gl_curclu Celu$v_pic] 
then ! THEN EXTRACT BASE VPN 


begin 

ink$gl_curctu clu$l_base]_ = .newhdrisd Cisd$v_vpg]*9 ; 
he sla clu$v_based] = true ; 

end ; 


ink$gl_curclu Cclu$l_nisects] = .lnk$gl_curclu Cclu$l_nisects] + 1 


Lastisd Cisl$l_nxtisd] = .curisd ; 
lastisd = .curisd ; 


WAI WWI nononyropnoforonofny 


elnk$gl_curclu Cclu$v_pic] 
n 


begin 
if .newhdrisd eql .firstisd 
en 
firstisdvpg = .newhdrisd Cisd$v_vpg] ; 
newhdrisd Cisd$v_vpg] = .newhdrisd Cisd$v_vpg] - 


WNWIA NMA AAAI I POPPI NININININIDS 4 OO OO S| OOO 


ne oe ewww wiwlelelolelelolololololololololo) 


OU EWN Ooo 
S 


COUNT ISECT IN CLUSTER 


! POINT TO FIRST ISECT IN CLUSTER 


lLastisd = Lnk$gl_curclu Cclu$l_lstisd] ! POINTER TO LAST ISD IN CLUSTER 


: ref Block C, byteJ ; 


PUT AT END OF LI 


IF A PIC CLUSTER 


-firstisdvpg ; 


if not .lnk$gl_curclu Cclu$v_based] 


FREK 


then Lnk$gw_shriscts = .lnk$gw_shriscts + 1 ; 
n . 


pet at Lal tt et pe 


COUNT IT 


ink$gl_curclu Cclu$l_pages) = .ink$gl_curclu Cclu$l_pages] + .newhdrisd Cisd$w 


FRRLK 


SODWNA VE WN 0 ODA UE WIN  O OONAUES WN S$ OVOONOUS WI —O0@ 
DOO NENA AAA A NIN NN NNO AAA A NNW OODBDODOOOOCOOCOOOOCOOCOOWOO 
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ee ee ee ce ce ee ce ce ee ec ce ce ec ee ee ce ce ee cD ee Dc ee cD cD ce ee ce ee ee ee ee ee ee ee ed ed ae 


wr OO 0e~n 


Mons 


“Red 
! ACCUMULATE THE PAGES RE 


if (ownclu = .lnk$gl_curclu Cclu$l_ownclu)) eql 0 
en 


o 
“ 


ST 
AND MAKE CURRENT THE NEW LAST 


IF FIRST ISECT THIS CLUSTER 
THEN SAVE VPG OF FIRST ISECT 
THEN SUBTRACT OUT THE BASE 


FOR LATER RELOCATION (NEEDED 
FOR OLD IMAGES LINKED @200) 


LNK_PROCSHRIM 
vOu=000 


PUPS SUSU SSVI 
OOOO NNN NN 


Ses 


PUP PVP APSA IAAI 


Poses sesese 


5 ooo 


ts 


o 
o 
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ink$gl_curclu Celu$l_cluoff] = + LnkS@l cure tu , 
ris 5 


-newh 
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wapagentassi2 


lse 
ownclu Cclu$l_cluoff] = .ownclu Celu$l_cluoff] + .newhdrisd Cisd$w_pagcntJ*512 ; 


if .curhdrisd Cisd$v_wrt] 

tA. © Cisd$v crf] 
ink$glcurclu Celu$Sv_wrt] = true ; 
-lnk$gl_curclu CcluSv_based] 

“newhdrisd Cisd$v_based] = true ; 


if not .curhdrisd Cisd$v_dzr 


A -curhdrisd Lisd$l Ger) neq 0 
nae -curhdrisd Cisd$l_vbn] gequ .maxisdvbn 


hen 
maxisdvbn = .curhdrisd Cisd$l_vbn] + 
-curhdrisd Cisd$w- pagent) ; 


if not .curhdrisd Cisd$v_gbl] 
then 


begin 
local gblsect_namlng ; 


IF SECTION IS WRITEABLE 

AND NOT COPY-ON-REF 

THEN REMEMBER FOR LNKIMGOUT 
IF CLUSTER IS BASED THEN FLAG 
IN CLUSTER DESCRIPTOR ALSO 


PROVIDED NOT A DEMAND ZERO ISD 
AND SECTION IS PRESENT IN IMAGE 


IF IMAGE SECTION GOES BEYOND LAST 


BLOCK OF LAST ISECT, THEN 
COMPUTE NEW MAX VBN IN USE 


IF IMAGE SECTION IS NOT 
ALREADY GLOBAL 


gblsect_naming = .lnk$gl_curclulclu$b_namlng] + suffix_size ; 


i The size of this global isd = Length of private isd 
: + Length of gblsect ident 
: + Length of gblsect name count byte 


newhdrisd Cisd$w_size) = 
newhdrisd Cisd$v_gbl] = true ; 


og i free 3 to 1 


: + Length of gblsect name 
isd$k_lenpriv + .gblsect_namlng + 5 ; SET SIZE AND 


“sf i MAKE IT GLOBAL NOW 
i COMPUTE ISD NAME BY 


if {curtedses C.i] = .curisdseq C.iJ] + 1) gtru %c'9" ! INCREMENTING THE SUFFIX 


en 
curisdseq C.i] = %c'0' 


se 
exitloop ; 
end ; 


(newhdrisd Cisd$t_gblnam])<0, 8, 0> = .gblsect_namlng ; 


ch$copy (. (ess l scurelu Celusp anantng) 


_cur OY. vet us gpane 
oe $955 e fo isect_n naming 
newhdr sd Cisd$t “gb a 


COPY THE CLUSTER 


i NAME CONCATENATED WITH 


THE SEQUENTIAL NUMBER 


i OF THE SECTION AND ZERO 


FILL THEN SET MATCH CONTROL 


newhdrisd tisd$v_matchctl] = .Lnk$gl_curclu Cclusy eiashetth a 
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ne 
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1149 
1150 
! 1 
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neunér ise Cisd$l_ident] = .isectident ; ! AND THE MATCH CONTROL IDENT 
if not .curhdrisd Cisd$v_dzro] ! IF NOT DEMAND ZERO AND 
and .| kSgl curetu clu$v_copy] ' SHAREABLE IMAGE TO BE COPIED 
cnet -curhdrisd Cisd$l_vbn] neq 0 } pon SECTION IS PRESENT IN THIS 
begin . 
1? .curhérisd Cisd$w_pagcnt] gtru .lnk$gl_gsbufdsc [0] ! MAXIMIZE THE SIZE OF 
h ! BUFFER WE'LL NEED 


en 
a ink$gl_gsbufdsc C0] = .curhdrisd Cisd$w_pagcnt] ; 


IF THERE IS A FIXUP SECTION 
AND THIS IS IT 


if .iafva neq 0 
an 
- (.newhdrisd Cisd$v_vpg]*9 eql .iafva) 
e 


n 
begin 

inkSgt curclu Celu$l_fixisd] = .curisd ; ! THEN REMEMBER IT FOR LATER 
newhdrisd Cisd$v_fixipvec] = true ; ! FLAG FIXUP SECTION IN ISD 
end ; ! UNCONDITIONALLY 


ink$gw_nisects = .lnk$gwnisects + 1 ; COUNT THAT IMAGE SECTION 
end ; ! OF LOCAL ISECT 


if (curhdrisd = .curhdrisd + .nxtisdoff) gtru (.header + 510) ! CHECK IT WAS COMPLETELY 
then ! CONTAINED BY THE CURRENT BLOCK 
signal_stop (Lin$_badimghdr, 1 IF NOT TRUE, FATAL IMAGE 
; tnk$9l_cur il Efdb$q_filename) HEADER ERROR 


! END OF ISECTION LOOP 


o 
J 
a 


i IMAGE SECTION WAS A STACK ISD, JUST SKIP IT BUT MAKE SURE IT IS CONTAINED BY THE 
i CURRENT BLOCK == ISSUE ERROR AND QUIT IF NOT 


' 
if (curhdrisd = .curhdrisd + .nxtisdoff) gtru (.header + 510) 


then 
signal_stop (Lin$_badimghdr, 1, lnk$gl_curfil Cfdb$q_filename]) ; 


end ; ! END OF BLOCK LOOP 
end ; 
if .maxisdvbn gtru .gstvbn (0) or .hdrblkcnt neq 0 ! AND THIS SHOULD ALSO POINT TO GST 


! AND NO HEADER het eet REMAIN 


then ! IF EITHER ABOVE NOT TRUE, 
signal_stop (Lin$_badimghdr, 1, \(nk$gl_curfil Cfdb$q_filename]) ; ! FATAL IMAGE HEADER ERROR 
if -lnk$gl_curclu (clu$v_based ' If THIS CLUSTER IS BASED 
and .lnk$gl_defclu Clusypased ' AND BASE= IN OPTION FILE 
si and .ink$gl_curclu EcluSl_base] lequ .lnk$gl_defclu Cclu$l_base] ! AND THIS IMAGE IS BELOW IT 
en 
signal (Lin$_basshrbel, 3, Lnk$gl_curfil Etdbsa filename) ' THEN WARN USER SHR IMG 
inkSgl_curclu Cclu$l_baseJ, .lnk$gl_defclu CcluSl_base) ' BELOW BASE= 


S*; 
gstvbn (0) = .gstvbn (0) + .blockoffset ; ' RELOCATE DOWN FILE IF NECESSARY 


eS aaa 1 


; 669 1165 gstvbn (1) = 

; 6 9 1166 Saverecount = PnkSol. objrecs ; 

: of 1188 Lnk$pointobj (gstvbn)~; 

: 67 11 if not ink$procsobj (gstvbn) 

; 674 1170 then seiosaoatns anton 

: of? 110) return false ; 

3 4 1178 saverecount = .\ink$gl_objrecs - .saverecou 
; es 1102 2 -Saverecount neq .gstrecs 

; en 

; esi 7 signal_stop (Lin$_badimghdr, 1, Lnk$gl 
: re 1199 ink$gl_imgrecs = .lnk$gl_imgrecs + .savere 
> 684 1180 return true 

3; 4685 1181 end ; 


65 6C 69 66 20 73 6E& 6F 69 74 4 of 0 
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I CLEAR THE BYTE OFFSET IN THE RFA 
i 


SAVE cyanea RECORD COUNT 
POINT TO GST 


AND GO PROCESS IT LIKE AN 
OBJECT RETURNING IF ERROR 
nt ; ! GET NUMBER PROCESSED 

! AND IF NOT CORRECT NUMBER 
_curfil Cfdb$Sq_filename]) ; ! FATAL IMAGE HEADER ERROR 
ACCUMULATE RECORD COUNT 


ALL DONE SO RETURN SUCCESS 
End of LNKSPROCSHRIM 


count ; 


TITLE Lm POoc Suni 
-PSECT S$PLITS,NOWRT,NOEXE,2 
P.AAB: .ASCII \Options file\ $ 
P.AAA: .LONG : 
-ADDRESS P.AAB 3 
-PSECT SOWNS,NOEXE,2 
CURISDSEQ: 
eASCII \_000\ 5 
omenear 
HEADERBLOCK : 
-PSECT $GLOBAL$,NOEXE,2 
LNKSGL_GSBUFDSC:: 


-BLKB 12 
LNKSGL_IMGRECS:: 
-~BLKB 4 


55 
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GHOR, LINS_BASSHRBEL 
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‘ LNKSGL 
. , LNK 
, LNK 


LNKSGL_L 


SCODES ,NOWRT ,2 


Leer ROC SHR IA. Save R2,R3,R4,R5,R6,R7,R8,- 


RO_R 
-88(SP5, SP 
(AP) 


1$ 
BLOCKOFFSET 
es 


#1, Q@MODRFA, BLOCKOFFSET 


LNKS$GL_SHRCLSTRS 
ubdest 


CLUDE 
#1, HORBLKCNT 
#1, NXTISDOFF 


XISDVBN 
At Tt eee HEADERBLOCK 
#3158064 #24, CURISDSEQ+1 


rT) 
1(R9), 44(SP5 
NXTISBOFF , #1 


59$ 
#0, READNEXTBLOCK 


R 
#26, LNKSGL_CURFIL, -(SP) 


HL INS BADIMGHDR 
#3, LIBSSTOP 


DER, RO 
HEADERBLOCK, 44(SP) 


17$ 
(RO), #2 


17 

9$ 

ag (nO). #12848 
14(RO), #48 

7$ 
15(RO), #53 
9$ 
8( 
ay 
Ri 
8$ 
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(RO), RI 
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SADR 
CH, LINS_IMGBA 
It; 
INS_READERR 
NKSGW_NISECTS 
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yOa=008 1 300-1 3b 90:38: if LINKER. SRCJLNKPROSHR.B32;2 . 33 

42 1A 00088 BGTRU 9$ ; ; 

00000000" EF 10 8 yf BA MOVZBL 16(RO), HORBLKCNT + 0754 ; 

00000000" é bf ce DECL HORE LKENT : ; 

8 06 A x CA MOVZWL 4(RO), SYMDBGDATDSC ; 0755 ; 

5 ¢ ce ADDL2 RO, SY MDBGDATDSC : ; 

1 £ 9900 mov2we (RO) : 0756 : 

0 1 ¢ D4 ADDL2 RI koe : : 

0 1 0 b7 CMPL sy DESDATDSC. RO : : 

E OO0DA BGEQU $ : ; 

28 OA ga AB 3C 0000C MOVZWL 10(S SYMDBGDATOSC) GSTRECS + 0757 : 

0 8 A D1 E CMPL gSTREC 3 ; : 

15 1F OOOE BLSSU : : 

50 04 AaB D OE MOVL 4(SY MDBGDATDSC) RO + 0758 : 

50 AE D EB MOVL. RO, G ; ; 

51 00000000" EF 1 ¢ OeF ADDL3 #1. H OO ROCKCNT, RI + 0759 ; 

. 7 Sh Boor gery Age ; : 

7E 000000006 00 14 cl Gore 9$: ADDL S } 0, LNKSGL_CURFIL, -(SP) + 0762 ; 

000000006 8F DD 0106 PUSHL ALANS BA BADIMGHDR : : 

000000006 00 3 FB 001 ¢ CALLS $STOP : ; 

0 000000006 00 D0 00113 108: MOVL tN 6L =CURCLU, RO > 0764 ; 

1 000000006 9 D Out, OVE Ns : : 

51 20 «Al 01 EF 00121 EXTZV oj 2: (R1), : ; 

58 AO 01 93 FO 91 7 INsy # CRAB ERGY : ; 

000000006 00 0g BA 01 " BICB2 Ay NS t _CTLMSK+2 : 0767 ; 

Hs 8 Regt; BS aE Bay: sh 8m) 

7E 000000006 00 14 C1 00141 ADDL3 ; 6, Lneset _CURFIL, =(SP) + 0774 ; 

000000006 Sr bp golds PUSHE INS, INGBASED ; } 

000000006 00 3 FB 01 CALLS 4 an NAL ; : 

50 000000006 00 p 91 8 OVL tNkSG . CURCLU, RO : 0776 : 

59 A 4 BA 0015F BICB2 : : 

e PRB Be iM gm) |: 

07 59 a0 Fl 168 118: C #2, 89(RO), 128 : 0781 : 

900000006 0 A gp BICB2 #2, LNKSGL_CTLMSK+2 : 07 5 3 

28 00000006 00 £1 00174 128: BBC #2. LNK SSL - “CTLMSK, 138 : 07 : 

000000006 : ceeaad : re BBS te is site RL AD 13$ : , ; 

17 A 1 BBS TR ect : : 

7E 000000806 0 4 ; if ADDL3 #36, LNKSGL _CORFIL, -(SP) : 0790 ; 

000000006 F DD O019R PUSHL INS_NONPICING 

000000006 F 14g CALLS a LTBS$SIGNAL ; ; 

G ) 1A7 138: MOVL LNK $6. CURCLU, R1 3; 079 : 

G D AE Ov HEADER; : 079 : 

52 23, «OA EF 0018 EXT2V #0, #3. 3 (RQ) R2 ; 3 

59 «AI 0 : 188 INSV -R2. #5, #3, B9CR1) ; 3 

1c CMPL «=o. @ ; : 

1€4 BNEQG 14$ ; : 

58 Al 0 1€6 B1SB2 #6 88(R1) : 079 ; 

AE 4 AO DO OO1CA 148: MOVL 36(R0), ISECTIDENT : 079 : 

0 AE D4 OOICF CLRL ~— TAFVA : 0798 : 


, : ~ iss-32 V4.0-74 : 
1b-se-1984 3:28:50 UTAKER SRE SinePROSHR.852;2 
LNK_PROCSHRIM 14-Sep * 
V04=000 3¢ 001D MOVZWL gin), 
i cb 1 ROVAS —GutROJ, 3 
2 AQ 9 0010 CPL RE, RS 
OF fn Oore MOVE, 4&¢RO), IAFVA 
20. AE 2c AD 90 OE aes igs 
OY Ob OOlED rss: se KDRBUKCNT,_LNKSGL_IMGRECS, R2 
9: EF 00000000" FF 1F9 oe MOVAB NCRODSCUNKSGL IMGRECS 
° dooov0e0' FE PO Ab $e O0IFS MOVZUL (RO), CURMDRISD 
00000000" EF ; MOVZ¥L (RO), °CURKORI 
é 5 69 ROVAa ASS«RID RI 
7 MOVAB . 
3 0084 1 o§ C tsi tah) 
ae nn 
BE 4 33 ooste ROVE. LNRSGL_CURFIL, RO 
0 00 0 16 MOVL Hit 
‘“ eet nO OF 3 20 EXTIV 0, #24, (R1), =(SP) 
18 RY SS MOVZBL 3(R1), =(SP) 
i f "6 MD at 9008 EXTZV Z0¢n0S MGIDENT, =(SP) 
4B AE 18 oe «fe Sh 80585 MOVZBL INGIDENTS » 7 (SP) 
es : o BO ROSE PUSHE  #LINS_IDMISMCH 
 haaneiennte 8 FB 00 E CALLS i, LTBS$SIGNAL 
0000006 i 
" 9 00 00947 178: Rov RCURMDRISD)» NXTISDOFF 
it be BP dooea 108: ibe et 
14 
Ford 31 00 3 198: EMPB —TTCCURHDRISD), #253 
Rass B i 0 ; BRw 78 0(SP) 
A ° 
08 AS BF ABgEB 208: Alam GiCumpnngy gp 
14 BE 08 ei 63 ADDL #20, LNKSGL:CURFIL, RO 
50 000000006 06 30 . ef Push, 
+4 SHU 
; 8 ft PUSHE ALINS_RELINK 
000000006 : 44 0 f CALLS #4 kTBSST08 
000000006 99 “ ; 218: BIBS 92CSP), 
0149 VAB 20 CURHDRISD) 
14 AG GE ™ 2 (RO) SHRDESC® 
he ay ae ROVZBM 20<CURHDRISD), SHRDESC 
a: % OA SUuue, 84 SHRDES 
rt ey Be SuBW2 #4. SHRDESC 
SH 60 AED Bosh Row” CA Gest, aes 
a i CMPC3  SHRDESC, 1(RO), 93( 
5D Al 01 a0 48 05 AB BNE i 
01 AD 238: FOUND 
ii AE OF 00580 pusHAB CLUDESC 
FE 0G 0098 CLRL = (SP) 


eee ee 


o 9 
LNK_PROCSHRIM 16-Sep-1984 00:30: AX-11 Bliss-32 V4.0-74 p 7 
yO4=000 ergo 1882 FS zBi te Hen Ose TagehogoR 6252 age 4 
54 AE OOF 8 PUSHAB SHRDESC ; : 
000000006 p oe FB 8 CALLS #4, LNKSADDIMAGE 3 ; 
0000009 G 0 p BF OVL LNKSGL_CURCLU, RO + 0872 ; 
1 A C6 MOVAB §88(RO); R1 : ; 
2 4 AF D CA MOVL cLUDESC, R2 + 0869 ; 
38 (1 C BEQL : . 
34 3¢ AF e D BLBS | FOUND, 28$ : ; 
59 A 01 00 07 Al F b4 INSV  _1(R1). #0, #1, 89(R2) * 0872 ; 
54 A ; D DB MOVL RO. 84 (R25 + 0874 ; 
03 61 = i D . BBC +P (R1), 25$ + 0876 : 
58 A2 1 § £6 te BISB2 #1, 88(R2) + 0879 ; 
oc 14 4 9 € EA BBC #9, a20(SP). 26$ + 0880 ; 
53 04 =A 1 : Ef EF EXTZV 40, #23, 4(CURHDRISD), R3 + 0881 : 
5 53 °8 F3 ASHL m9, R3, R3 ; : 
53 4C AO 20 A9 C1 002FB 368: ADDL3 : (RQ) 76(RO), R3 + 0883 ; 
4G A2 5 b0 0301 27$: MOVL R3, 76(R2) : 0880 : 
0087 31 00 03 BRW 35 > 0886 ; 
04 61 €9 28$:  BLBC (R1), 298 + 0891 : 
04 61 03 E1 00308 BBC #3, (R1), 30$ : 0893 
D0 61 A E1 0030F 98: BBC #16, (RIS, 248 > 0895 
AE 54 A2 00 00 13 0S: MOVL  84(R2), OWNCLU : 0898 
54 04 0031 CLRL RG + 0900 
6E d3 0319 TSTL CLU ; 
O€ 13 0031B BEQL 1$ : 
54 06 00310 INCL 4 ; 
53 02 A6 3C OO31F MOVZWL 2(CURHDRISD), R3 + 0903 
53 5 09 78 0 3 ASHL #9, ; 
20 Ad 23 CO ADDL2 R3, 32(RO) : 
60 4 €9 00328 31$: BLBC : 0905 
50 $f 00000058 BF C1 0032E ADDL3 was OWNCLU, RO : 0907 
5 60 E9 00336 BLBC —_ (ROS 328 ; 
53 04 Ab 17 0 ai 0339 EXTZV #0, 4 » 4(CURHDRISD), R3 + 0909 
53 33 09 78 0033F ASHL «#9. RB, R ; 
5 4C Ag D1 00 43 CMPL © 76(R2). R ; 
45 13 0 4 BEQL F 
50 6E 08 C1 00349 ADDL3 #8, OWNCLU, RO > 0914 
18 AE 6 DO 00340 MOVL (RO), OWNFOB : 
000000006 8F DD 0 1 PUSHL # ins NOIMGF IL : 0918 
50 ¢ « 14 (1 7 ADDLS #20, OWNFDB, RO ; 
50 od 0035¢ PUSHL ; 
4C A2 OD PUSHL  76(R2) : 
7E 000000006 09 14 (1 6 ADDL3 #20, LNKSGL_CURFIL, -(SP) : 0917 
50 06 Ab 1 09 gf EXTZ2V #0, #25, 4(TURHDRISD), RO ; 
7E 0 9 78 of ASHL #9. RO, =(SP) : 
5¢ Ag OF PUSHAB ye (Re) ; 0916 
DD 0037 PUSHL # : 0918 
000000006 8F DD 0037 SHL #LINS_CONFBASADR ; 
900000006 99 8 FB 43 CALLS #8, SIGNA F 
00006 00 \ BA 3 bce s LNKS$GL_CTLMSK : 0921 
39 1 AE 32$: BBS jo (RI) 36$ : 09 
58 A2 € BLBS : (k2), 38$ : 09 
000000006 48 Ad A suBW2 (RO) LNKSGW_SHRISCTS : 09 
A 0 8 H 33$:  BISBo a#i, g{R ) : 09 
50 04 Ab 1 0 EF OO3A EXTZV #0, #23, 4(CURHDRISD), RO : 09 


| 
LNK_PROCSHRIM ise 1984 00:30:18 AX-11 Bliss-32 V4.0-74 Page 1 
V¥04=000 12-808- 1 3be 90:30:48 LINKER. SRCJLNKPROSHR.B32;2 ° (3 
4C  A2 50 09 78 003A8 ASHL #9, RO, 76(R2) ; ; 
{a} AD BRB 36§ + 0891 : 
50 000000996 0 D0 AF 34$: = MOVL LNKS Lc RCLU, RO + 0941 ; 
0 AO E B6 BLBS (RO); 35 : : 
0c 59 OA 02 €1 003BA BBC #2, B9(RO), 36$ ; : 
; 02 A BF 35$: MOVZWL ¢(URHDRI SD) R3 + 0944 ; 
53 Q C3 ASHL #9, RS R : ; 
20 a0 C ¢ ADDL2 R3, 32(R0) : : 
0 14 BE 9 003CB 36$:  BLBC : 6(SP), 37S + 0950 ; 
0262 31 O03CF BRW $ : : 
4 AE 9F 003D2 37$:  PUSHAB CURISD + 0953 ; 
43 Sh af A 0030 MOVZBL #88, ~ (SP) : ; 
000000006 0 2 FB D CALLS #2, LNKSALLOBLK : ; 
58 44 AE 00 003E0 MOVL CURISD, > 0954 : 
68 D4 O3E4 CLRL = (R11) : ; 
08 AB 7C O03E6 CLRQ = 8(R11) + 0955 ; 
5A 000000006 90 DO 00369 MOVL — LNKSGL_CURCLU, R10 + 0957 ; 
10 AB A DO 003F0 MOVL R10, 16(R11) : ; 
57 18 AB 3 O3F4 MOVAB 24(R11), NEWHDRIS > 0958 : 
0040 28F 00 66 mn 66 ¢ 0038 MOVCS  (CURHDRISD), (CURHDRISD), #0, #64, 24(R11) : 0961 ; 
18 «AA D5 rey TSTL g4<R10) + 0963 : 
03 13 00404 BEQL gs : ; 
00CB 31 00406 BRW 42$ : ; 
51 58 AA 9E 00409 38$:  MOVAB 88(R10), R1 + 0966 : 
52 1 OA €1 0040D BBC #10, (RI), 408 ; 
A 61 €9 00411 BLBC (R1$, 39$ + 0969 
3c AA 4C AA D1 00414 CMPL 76(R10), 60(R10) : 0971 
33 13 00419 BEQL 39$ ; 
000000006 BF DD 00418 PUSHL #LINS_NOIMGFIL : 0976 
00000000' EF 9F 00421 PUSHAB P.AAA : 0977 
3¢ =AA DD 00427 PUSH 6O<R10) : 
7E 000000006 00 14 C1 0042A ADDL3 #20 LNKSGL_CURFIL, -(SP) + 0976 
4C AA bp 04 : PUSHL 76(R10) ; 
5C AA OF 004 PUSHAB 92(R10) + 0975 
05 DD 00438 PUSHL # : 0976 
000000006 8F DD 0043A PUSHL aL INS CONFBASADR ; 
000000006 00 08 FB 0440 CALLS #8, LYBSSIGNAL : 
000000006 00 oi BA 0044 BICB2 #1. LNKS$GL_CTLMSK : 098 
50 000000006 00 00 O44E 39$: MOVL LNKSGL_CURTLY RO : 098 
4c AO C Ad DO 0045 MOVL OCR y> 76(ROS ; 
C AO D4 O4dA CLRL_  60(RO) > 0984 
58 A 01 88 0045p BISB2 #1, 88(RO) > 0985 
A \ 46} BRB 42$ : 966 
55 } E9 00463 40$:  BLBC (R11), 418 : 09 
63 61 EO 00466 § a3, ta), 4 : 0991 
50 04 A? 17 g ai AGA EXTZ2V #0. #23, 4(NEWHDRISD), RO > 0994 
50 50 8 00470 ASHL #9. RO, RO : : 
50 4C AA p 474 CMPL 7gii §, RO ; : 
53 478 BEQL 42$ 3 3 
6E 54 AA DO 0047A MOVL. 84(R10) OwNCLU : 0997 ; 
52 6E 08 C1 0047 ADDL3 #8, OWNCLU, R : 0998 : 
18 AE DO 004 MOVL (RO), OWNFOB ; : 
000000006 8F Db 4 PUSHL # Ins NOIMGF IL : 1002 : 
51 1 AE 4 C1 004 ¢ ADDLS #20, OWNFDB, AI ; : 
51 DD 004 PUSHL R : : 
4C AA ODD 493 PUSHL 76(R10) 3 é 


F 9 
LNNK_PROCSHRIM 16-Sep-1984 00:30: AX-11 Bliss-32 V4.0-74 Page 19 
v04=000 eat ae ts PAR a eT th Rt 9 02) 
7E 000000006 00 14 C1 00496 ADDL3 #20, LNKSGL_CURFIL, (SP) ; 1001 
0 BD 49 PUS + 1002 
al 188 
000000006 F DOD 4A PUSHL #LINS_CONFBASADR g 
000000006 00 ; FB 004A CALLS #8, LIBSSIGNAL ; 
000000006 00 : BA 48 BIC ' { LNKSGL_CTLMSK : 1005 
0 61 : EO 004B8B 41$: BS a3, (RI), 42$ + 1009 
50 04 =A 17 g cf O4BE EXTZV. #0, #2 ; 4 (NEWHDRISD) , RO + 1012 
4C AA 50 4c5 SHL #9, RO, 76(R10) : 
61 1 88 OO4CA BISB2 #1. (Ri) + 1013 
30 AE 7 00 004d 438: OVL  NEWHDRISD, FIRSTISD + 1016 
5A 000000006 00 00 00401 43$:  MOVL LNKSGL CURCLU, R10 + 1019 
48 AA D6 408 INCL 2(R103 ; 
1c «BA 5B DO 004DB MOVL R11, 928(R10) + 1026 
1C AA 5B DO O04DF MOVL R11 g (R10) : 1987 
06 AE 58 AA OE Ques MOVAB Bach ), 4(SP) + 1031 
27 04 BE 03 E1 O04E BBC #3, a4(SP), 45$ ; 
0 AE D1 004ED CMPL §- NEWHDRISD, FIRSTISD + 1034 
7 12 004F1 BNEQ 44$ ; 
34 AE 04 A? 17 0 EF 004F3 EXTZV #0, 423, 4(NEWHDRISD), FIRSTISDVPG + 1036 
50 04 A? 17 0 EF OOGFA 44$:  EXTZV #0, #23. 4(NEWHDRISD). RO + 1039 
50 34 AE C2 00500 SUBL2 FIRST ISbVEG, RO : 
04 A? 17 00 50 FO 00504 INSV RO, #0, We * &(NEWHDRISD) : 
06 04 BE €E8 0050A BLBS a4(SP). 45$ : 1042 
000000006 0 86 00508 INCW LNK SG SHRISCTS > 104 
50 02 A? 3C 00514 45$:  MOVZWL 2(NEWHBRISD), RO > 1046 
50 AA 50 CO 00518 ADDL2 RO 80 (R10) ; 
6E 54 AA 00 Ooi move 84 (RI ), OWNCLU + 1049 
50 02 A 3¢ 0522 MOVZWL 2(NEWHDRISD), RO + 1052 
50 50 09 78 00526 ASHL #9, ; 
20. AA 50 CO 0052A ADDL2 RO 32¢R10) ; 
OF 11 005 F BRB 47§ : 1051 
50 02 A? 3¢ 0530 46$:  MOVZWL 2(NEWHDRISD), RO > 1054 
50 50 9 78 00534 ASHL #9, RO, ; 
51 6E 0 Cl 05 8 ADDL3 #32, OWNCLU, R1 : 
61 CO 0053¢ ADDL RO. (R1 : 
OA 14 BE E1 0053F 47%: BBC 3. a0(sP), 48$ + 1056 
05 14 BE 1 44 BBS #1. a20(SP). : 1058 
04 BE 40 «BF 0549 BISB2 #64, a4(SP) ; 1969 
PE a et Some sea : 
16 14 BE E ° 49S: BBS #2. a20(SP) 388 ; 1066 
oc A p B TSTL  12¢CURHDRISO) : 106 
11 BEQL  50$ F 
24 «AE 0c a6 D1 0056 CMPL § 12(CURHDRISD), MAXISDVBN > 1069 
OA 1F 0056 BLSSU 3 $ ; 
50 2 a6 3C 0056 MOVZWL 2(CURHDRISD), RO : 1072 
24 AE C B64 ; 9 $8 VAB_  @12(CURHDRISO)CROJ, MAXISDVBN : 
7 14 BE f 50$: BLBS a (SP), > 1074 
5¢ =AA 9A 00575 MOVZBL 92(R10). GBLSECT_NAMLNG + 1079 
4 ¢ 79 ADDL2 #4, GBLSECT_NAMLAG : 
67 0 5 A 7 ADDWS #21, GBLSECT NAMLNG, (NEWHDRISD) : 1086 
08 iA 4 Hi BISB #1, S(NEWHDRISD) : 1087 
51 D MOVL #3, I : 1089 


LNK_PROCSHRIM 
voe=000 


52 00000000'EF 


00000000'°EF 41 
39 
00000000°EF 41 
s 

14 OA 

10 AE 

+5 AE 

9 AE 

D AA 

08 AE 

OC AE 

00 00000000" EF 
03 

04 

10 =A? 

14 ~BE 

04 BE 

10 


00000000" EF 
20 =AE 
4& 
09 A? 


50 000000006 9° 


7E 000000006 00 


000000006 00 
50. AE 


7E 000000006 00 


000000006 


ro 
on 


oOo 


C0009 9 WN PB D9 9 2 2 SOO DON) DB™WUODIOWU— OOO" OMOCO OMOrOoOWOoW—CCo>r 
OOOCOCCCOOCOOSGOOSOOOOSOSOOOCOSOOOOOOOOOOOOOoOOoO 

SOOoOCOOoCoOoOOoOoOSoO OGOOCOCCCOoO 

DRDQLPDPAAAPAPAPAAPAPAA AAA AA AAA AA AA AAA AOS 


mmo "OOM $9 -FTWwTS OO FOO 9 FIM SS OW Ss MS OMMO FMM WOO wMOCWJoOOT"wO—-VCOoOCO 


SoF>P OOOO —MOPMOWOO——UID PW QOMOMU1OO — FP POO POOruncdo,y, 
SOO 2 FNM OOM NW SE NIOS MMO SF DOOOCOCOMADOLASSrymnoomem 


it Moree Nene Acehosun 6%2;2 


¢ RISDSEQCLIJ, R2 
. , CyRISDSEQCI] 
: 
4 b consoseeci 
OL SECT_NA NAMLNG, 20(NEWHDRISD) 
BLSECT_NA MARLAG, 12(SP) 
1(R7), “§¢ SP) 
6(SP). 93(R10), #0, 12(SP), a8(SP) 
53$ 
16(SP), 8(SP) 
16(SP), 12(SP) 
#4, CURISDSEQ, #0, 12(SP), a8(SP) 
#13, #3, Beg RO 
RO , B(NEWHDRISD 
TsEct bent 1 CNEUNDRISD? 
#2, a20(SPS, 55$ 
#4. as(SP), 55$ 
1 ama 


#16, 2(CURHDRISD), LNKSGL_GSBUFDSC 
ieee LNKS$GL_GSBUF DSC 


Ny 
#0, Hy: W890 4(NEWHDRISD), RO 
+ Pevae 
Rit, 68(R10) 
*9(NEWHDRISD) 
tks NISECTS 
TISDOFF, CURHDRISD 
me HEADER 
RHORISD, RO 
, LNKSGL_CURFIL, -(SP) 


#L INS _BADIMGHDR 
LTBSSTOP 


MAXISDVBN, GSTVBN 
HDRBLKCNT 

400, LNKSGL_CURFIL, -(SP) 
ay NS Bestoe 

NKS -CURCLU, RO 
cARSGL -DEFCLU+88, 62% 


PoP Se Se Se Se Se Se Ge Fe Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Ge Fe Ge Ge Se Ge Fe Ge Se Be Ge Se Se Se Se Be Ge Be Be Se Se Ge Be Se Ge Be Be Ge Se Ge Be Ge Se Fe Be Be 


Be ee Be ee Oe Be FH Se Be Se Se Se ee Se Se Se Se Se Se 


; Routine Size: 1821 bytes, Routine Base: $CODE$ + 0000 


; 686 1182 1 
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LNK_PROCSHRIM 16-Sep- AX-11 Bliss-32 V4.0 Page 21 
v04=0 eSeb=18Rs §3i20:42 = Men Saeiiacenosun 692-2 ve 3} 
000000006 00 4C Ad D1 0069 CMPL 7$(RO) LNKSGL_DEF CLU+76 ; 1158 ; 
20 TA Q06A BGTRU & : ; 
000000006 DD 006A PUSHL —LNKSGL_DEFCLU*76 : 1161 : 
4C AO DD 006AB PUSH (RO) : : 
7E 000000006 00 Me ch AE ADDL —#¢0, LNKSGL_CURFIL, ~(SP) + 1160 : 
000000006 BF bb o0eeR PUSHL #LINS BASSHRBEL ; : 
000000906 00 3 FB 0068 CALL TB$SIGNAL ; : 
0 AE C C5 628 ADDL BLOCKOFFSET. GSTVBN + 1164 : 
54 AE (D4 O06C CLRL © GSTVBN+4 : 1165 : 
52 000000006 09 pO d06c MOVL _ LNKSGL_OBJRECS, SAVERECOUNT : 1166 ; 
AE 9F 0060 PUSHAB VBN~ : 116 : 
000000006 00 01 FB 006D CALLS #1, LNKSPOINTOBJ ; : 
50 AFF 0060 PUSHAB > 1169 3 
000000006 90 i oF CALLS M1 NKSPROCSOBJ ; : 
52 000000006 00 ES OOCEA SUBL3 SAVERECOUNT, LNKSGL_OBJRECS, SAVERECOUNT  ; 1173 ; 
28 AE 3¢ D1 O06 CMPL’ SAVERECOUNT, GSTREC cs : 1175 ; 
7E 000000006 00 i ci O6F ADDLS #20, LNKSGL_CURFIL, -(SP) ; 1177 : 
000000006 Br 0D oro PUSHL —#L INS _BADIMGHDR : ; 
000000006 00 3 FB 007 CALLS #3, ; : 
00000000" EF 52 CO OO70F 63% ADDL2 SAVERECOUNT, LNKSGL_IMGRECS : 1179 ; 
50 01 D0 00716 MOVL #1, RO > 1180 ; 
04 0071 RET : : 
50 D4 OO71A 648 CLRL = RO : 1181 ; 
04 0071C RET : ; 


9 
LNK_PROCSHRIM rbese -1984 00:30: AX-11 Bliss-32 V4.0-74 
v04=000 12-80-1382 99:28:48 LINKER. SRC ILNKPROSHR.B 2:2 
: ons 1} ; } routine readnextblock = ! READ NEXT BLOCK IF ANY 
: 690 1185 1: THIS ROUTINE IS CALLED TO READ THE NEXT BLOCK OF THE IMAGE HEADER 
; 691 11 § 1! READ ERRORS ARE FATAL. A REQUEST TO READ ANOTHER BLOCK 
; F&F 1187 1! WHEN HDRBLKCNT IS ALREADY ZERO RETURNS FATAL. 
; 69 1188 1! HDRBLKCNT IS DECREMENTED AFTER EACH READ AND HEADERBLOCK IS 
: O38 1} 8 : } INCREMENTED BEFORE EACH READ. 
: 696 1191 1 ie 
; 697 1136 begin 
3 O98 BS local 
; saveusz, 
: 706 1198 readerror : 
: 20 1197 if -hdrblkent leq 0 ! If NO MORE BLOCKS 
3 n 
: Ae 1330 return false ; ! RETURN FAILURE 
: 706 1201 saveusz = .lnk$al_rab Crab$w_usz] ; ' SAVE USZ 
: Ade : ¢ headerblock = .headerBlock + 1 ; ! SET THE BLOCK TO READ 
: 709 1204 2 Lnk$al_rab Crab$l_bkt] = .headerblock ; ! SET STARTING VBN 
; 10 05 ink$al-rab Crab$wiusz] = 512 ; i AND SET THE BYTE COUNT 
: ats \soe 7 not (readerror = $read (rab = \nk$al_rab)) ! ATTEMPT TO READ LIBRARY, USING 
3 en 
; 716 1209 begin ' BUFFER ALREADY SET UP 
s 715 1210 signal (Lin$_readerr, 1 : 
: 716 1211 » UnkSgl curt il Cfdb$q_filename) 
: ats : \¢ -readerror, .lnk$al_rab Crab$l_stv] 
: 719 1214 Lnk$clLosefile (.lnk$gl_curfil) ; ! THE MESSAGES AND ATTEMPT TO 
: 720 1$1? ink$al_rab Crab$w_usz] = .saveusz ; ! RESTORE USZ 
3 ree 1$18 +4 Wy false ; 
P4 end ; 
: 738 1519 hdrblkcnt hdrblkcnt = 1 ! DECREMENT THE BLOCK COUNT 
3 rblkcnt = .hdrblkcnt - 1; ! 
; 725 1220 ink$al_rab Crab$w_usz] = .saveusz ; 
: 726 1221 return true ; ' AND ALL DONE SUCCESSFULLY 
: 727 1222 1 end ; ! END OF READNEXTBLOCK 


-EXTRN SYSSREAD 


003C 00000 READNEXTBLOCK: 
eWORD Save Re fe R4,RS 


5 00 6 00 9€ 0000 MOVAB  LNKSGL URFIL, RS 
4 0 ' FF gE 0 MOVAB HDRBLKCNT, R 
3 00 G6 60 1 MOVAB LNKSAL_RAB+32, R3 
64 4 TSTL | HDRBLKCNT 
4 19 BLEG 
52 63 3¢ 0001B MOVZWL LNKSAL_RAB+32, SAVEUSZ 
: BS IF INCL HEADERBLOCK 
18 «OA 4 Ad D MOVL HEA ERBLOCK LNKSAL _RAB#56 
6 02 0 8F : 6 ve #512, LNKSAL_RAB+3 
EO AS OF B PUSHAB LNKSAL_RAB 


LNK_PROCSHRIM 
y042000 


000000006 99 
6 
EC 
7E 65 


000000006 
000000006 00 


000000006 09 
6 


$0 


= 
wn 
oe 


OWWOMOCODO—"N PO 


=F ONn "nt Th  FOWwWOoO— 
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; Routine Size: 106 bytes, Routine Base: S$CODE$ + 071D 


: 728 1223 1 end 
3 £68 1224 
3s 750 1225 0 eludom 
: PSECT SUMMARY 
; Name Bytes Attributes 
; SGLOBALS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, 
3; SOWNS 1 NOVEC, WRT, RD ,NOEXE,NOSHR, 
3; SPLITS § NOVEC,NOWRT, RD *NOEXE, NOSHR, 
3; SCODES 19 NOVEC,NOWRT, RD, EXE,NOSH 
, = AOS 0 NOVEC, *NOWRT, NORD *NOEXE, NOSHR, 
Library Statistics 
eocevese Symbols -------- 
File Total Loaded Percent 


_$255$DUA28:(SYSLIBILIB.L32 18619 68 
“$255 Be haters ee et ATbAS. L32:1 538 41 5 


b-sep-t9te 00:50:18 YARGII Bliss 32 v4.08742 


LBS § READERROR, 1$ 
PUSHL LNK$AL_RAB+i2 
PUSHL READE 


RROR 
ADDL H° LNKSGL_CURFIL, -(SP) 


PUSHL #LINS BR READERR 
CALLS tNKS6L CUR oe L 


RIL 
CALLS CHRSCLOSEF ILE 
MOVW SAVEUS? ENKSAL _RAB+32 
LKCNT 
MOVW SAVEUS?. LNKSAL_RAB+32 
#1, RO 


CLRL RO 
T 


End of module 


~-EXTRN LIBSSIGNAL, LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, ABS, CON,NOPIC,ALIGN(0) 
Pages Processing 
Mapped Time 
100 00:0 

2 00: 96:3 8 


Be Se Ge Be Fe Ge Se Ge Ge Ge Se Fe Fe Se Se Se Be Be 


kK 9 
rivet lal er$ep-196¢ iosadsse — EMTMKER SRESLARPROSHR.BS2;2 wo a v 
H COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LNKPROSHR/OBJ=OBJ$:LNKPROSHR MSRC$:LNKPROSHR/UPDATE=(ENHS$:LNKPROSHR) 
ey a aie + 48 data bytes 
Elapsed. Time: e 
Lines/CPU Min: 


Lexemes/CPU-Min: 28711 
ry Used: 563 pages 
Compilation Complete 
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